home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)z6.d64 / proc.show'sprite < prev    next >
Text File  |  2009-01-03  |  923b  |  30 lines
  1. 1770 ╨╥╧├ SHOW 
  2. 1780   TEXTCOLOR(15)
  3. 1790   ╨╥╔╬╘ "N VXYMSD M  XCOR  YCOR  DUR 0 C 1 P SH"
  4. 1800   ╞╧╥ S:=0 ╘╧ 7 ─╧
  5. 1810     TEXTCOLOR(15)
  6. 1820     ╨╥╔╬╘ S;
  7. 1830     TEXTCOLOR(7)
  8. 1840     ╨╥╔╬╘ ".V"(SPRITEINQ(S,0)+1),
  9. 1850     ╨╥╔╬╘ ".X"(SPRITEINQ(S,4)+1),
  10. 1860     ╨╥╔╬╘ ".Y"(SPRITEINQ(S,5)+1),
  11. 1870     ╨╥╔╬╘ "NM"(SPRITEINQ(S,6)+1),
  12. 1880     ╨╥╔╬╘ ".C"(SPRITEINQ(S,10)+1),
  13. 1890     ╨╥╔╬╘ ".C"(SPRITEINQ(S,11)+1);
  14. 1900     TEXTCOLOR(3)
  15. 1910     ╨╥╔╬╘ ".M"(MOVING(S)+1),
  16. 1920     ╨╥╔╬╘ ╒╙╔╬╟ "-#####": SPRITEX(S),
  17. 1930     ╨╥╔╬╘ ╒╙╔╬╟ "-#####": SPRITEY(S),
  18. 1940     ╨╥╔╬╘ ╒╙╔╬╟ "#####": SPRITEINQ(S,9);
  19. 1950     TEXTCOLOR(SPRITEINQ(S,1))
  20. 1960     ╨╥╔╬╘ ""18" "146"";
  21. 1970     TEXTCOLOR(SPRITEINQ(S,2))
  22. 1980     ╨╥╔╬╘ ""18" "146"";
  23. 1990     TEXTCOLOR(SPRITEINQ(S,3))
  24. 2000     ╨╥╔╬╘ ""18" "146"";
  25. 2010     TEXTCOLOR(1)
  26. 2020     ╨╥╔╬╘ SPRITEINQ(S,7);
  27. 2030     ╨╥╔╬╘ ╒╙╔╬╟ "##": SPRITEINQ(S,8)
  28. 2040   ┼╬─╞╧╥ S
  29. 2050 ┼╬─╨╥╧├ SHOW
  30.